home *** CD-ROM | disk | FTP | other *** search
/ Student Private Syndrome 3 / Student Private Syndrome 3.iso / private / movie / movie.dxr / 00004_ÉÄÅ[ÉrÅ[É{É^ÉìÇÃìÆÇ´.ls < prev    next >
Encoding:
Text File  |  1996-06-21  |  596 b   |  21 lines

  1. on exitFrame
  2.   global startticks, sndname
  3.   go(the frame)
  4.   if not soundBusy(1) then
  5.     sound playFile 1, sndname
  6.   end if
  7.   if (the ticks - startticks) >= (60 * 0.5) then
  8.     repeat with i = 6 to 13
  9.       set cname1 to item 1 of the name of cast the castNum of sprite i
  10.       set cname2 to value(item 2 of the name of cast the castNum of sprite i)
  11.       if cname2 = 2 then
  12.         set cname2 to 1
  13.       else
  14.         set cname2 to cname2 + 1
  15.       end if
  16.       set the castNum of sprite i to the number of cast (cname1 & "," & cname2)
  17.     end repeat
  18.     set startticks to the ticks
  19.   end if
  20. end
  21.